home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Musik / Misc / AudioEvolution / InstallAudioEvolution < prev    next >
Encoding:
Text File  |  2000-04-02  |  5.7 KB  |  177 lines
  1. (complete 0)
  2. (set @default-dest "Work:")
  3.  
  4. (message (cat "\n\nWelcome to the Audio Evolution installation utility!\n\n\n"
  5.               "Note that Audio Evolution requires AHI V4 or higher.\n\n")
  6. )
  7. (welcome)
  8.  
  9.  
  10. (set dest_dir
  11.    (askdir (prompt "Where would you like Audio Evolution to be installed?\n"
  12.                     "A new drawer will be created there.")
  13.            (help @askdir-help)
  14.            (default @default-dest)
  15.            (newpath))
  16. )
  17.  
  18. (set @default-dest (tackon dest_dir "AudioEvolution"))
  19. (makedir @default-dest)
  20. (makedir (tackon @default-dest "samples"))
  21. (makedir (tackon @default-dest "filters"))
  22. (makedir (tackon @default-dest "projects"))
  23. (makedir (tackon @default-dest "eventlists"))
  24. (makedir (tackon @default-dest "PlugIns"))
  25.  
  26.  
  27. (set processor 0)
  28. (if (= (run "c:cpu check 68881") 0) (set processor 1))
  29. (if (= (run "c:cpu check 68040") 0) (set processor 1))
  30. (set processor
  31.      (askchoice (prompt "Select your processor")
  32.                 (help (cat "Select the kind of processor you have in your machine:\n\n"
  33.                       "68020: Select this if you have an '020 or '030 without FPU\n\n"
  34.                       "68020 + FPU: Select this if you have an '020 or '030 with FPU or an 68040 (not 68EC040!)\n\n"
  35.                       "68060: Select this if you have an 68060"
  36.                       )
  37.                 )
  38.                 (choices "68020" "68020 + FPU" "68060")
  39.                 (default processor)
  40.      )
  41. )
  42.  
  43. (if (= processor 0) ((set SourceName "AudioEvolution.020") (set SourceNameInfo "AudioEvolution.020.info")) )
  44. (if (= processor 1) ((set SourceName "AudioEvolution.020fpu") (set SourceNameInfo "AudioEvolution.020fpu.info")) )
  45. (if (= processor 2) ((set SourceName "AudioEvolution.060") (set SourceNameInfo "AudioEvolution.060.info")) )
  46.  
  47. (copyfiles (prompt ("Copying Audio Evolution to %s.\n" @default-dest))
  48.                               (source SourceName)
  49.                               (dest @default-dest)
  50.                               (confirm)
  51.                               (infos)
  52.                               (help "\nThis will copy the main Audio Evolution file.")
  53. )
  54.  
  55. (rename (tackon @default-dest SourceName) (tackon @default-dest "AudioEvolution") )
  56. (rename (tackon @default-dest SourceNameInfo) (tackon @default-dest "AudioEvolution.info") )
  57.  
  58.  
  59. (complete 60)
  60.  
  61. (copyfiles (prompt ("Copying AudioEvolution.guide to %s.\n" @default-dest))
  62.                               (source "AudioEvolution.guide")
  63.                               (dest @default-dest)
  64.                               (confirm)
  65.                               (infos)
  66.                               (help "\nThis will copy the Audio Evolution documentation.")
  67. )
  68.  
  69.  
  70. (copyfiles (prompt ("Copying VersionInfo to %s.\n" @default-dest))
  71.                               (source "VersionInfo")
  72.                               (dest @default-dest)
  73.                               (confirm)
  74.                               (infos)
  75.                               (help "\nThis will copy the version-info file.")
  76. )
  77.  
  78. (complete 65)
  79.  
  80. (set InstallPTool 0)
  81. (set InstallPTool
  82.      (askchoice (prompt "Do you wish to install the Bars&Pipes synchronisation tool?")
  83.                 (help (cat "The Bars&Pipes synchronisation tool is a 'ptool' to \n"
  84.                       "synchronize the start of Audio Evolution with B&P."
  85.                       )
  86.                 )
  87.                 (choices "Yes" "No")
  88.                 (default InstallPTool)
  89.      )
  90. )
  91.  
  92. (if (= InstallPTool 0)
  93.  (
  94.    (set bpdir
  95.       (askdir (prompt "Where would you like the B&P tool to be installed?\n")
  96.             (default "Work:")
  97.             (help "\nChoose the Bars&Pipes/Tools directory\n")
  98.             (disk)
  99.       )
  100.    )
  101.  
  102.    (copyfiles (prompt ("Copying AudioEvolutionTool.ptool to %s.\n" bpdir) )
  103.                               (source "AudioEvolutionTool.ptool")
  104.                               (dest bpdir)
  105.                               (confirm)
  106.                               (help "\nThis will copy the B&P-ptool file.")
  107.    )
  108.  )
  109. )
  110.  
  111.  
  112.  
  113.  
  114. (complete 70)
  115.  
  116. (copyfiles (prompt ("Copying filters to %s.\n" (tackon @default-dest "filters") ))
  117.                               (source "filters")
  118.                               (dest (tackon @default-dest "filters"))
  119.                               (all)
  120.                               (help "\nThis will copy some example FIR-filter files.")
  121. )
  122.  
  123.  
  124. (complete 80)
  125.  
  126. (copyfiles (prompt ("Copying plug-ins to %s.\n" (tackon @default-dest "PlugIns") ))
  127.                               (source "PlugIns")
  128.                               (dest (tackon @default-dest "PlugIns"))
  129.                               (all)
  130.                               (help "\nThis will copy some realtime PPC effects.")
  131. )
  132.  
  133.  
  134. (complete 90)
  135.  
  136.  
  137. (copyfiles (prompt "Audio Evolution needs some fonts in the FONTS: directory.\n")
  138.            (source "fonts/")
  139.            (dest "FONTS:")
  140.            (all)
  141.            (confirm)
  142.            (help "\nThis will copy the Trinomic and AudioEvolutionDigital fonts.")
  143. )
  144.  
  145.  
  146. (set vernumInstalled (getversion "libs:popupmenu.library"))
  147. (set ver (/ vernumInstalled 65536))
  148. (set rev (- vernumInstalled (* ver 65536) ) )
  149.  
  150. (set vernumToInstall (getversion "libs/popupmenu.library"))
  151. (set ver2 (/ vernumToInstall 65536))
  152. (set rev2 (- vernumToInstall (* ver2 65536) ) )
  153.  
  154.  
  155. (if (< vernumInstalled vernumToInstall)
  156.  
  157.    (copyfiles (prompt ( cat ("Popupmenu.library:\n")
  158.                             ("\nVersion to install : %ld.%ld\n" ver2 rev2)
  159.                             ("Version found : %ld.%ld" ver rev) 
  160.                       ))
  161.                       (source "libs/popupmenu.library")
  162.                       (dest "libs:")
  163.                       (confirm)
  164.                       (help "\nThe popupmenu library is required to run Audio Evolution!")
  165.    )
  166. )
  167.  
  168.  
  169. (complete 100)
  170.  
  171. (set installed "YES")         
  172.  
  173. (if (= installed "YES") 
  174.    (exit ("\n\nThank you for installing Audio Evolution!"))
  175.    (exit)
  176. )   
  177.